PROGRAM LIBRARY 


DECUS NO. 

8-484 

TITLE 

RESTORE FOR THE RK#8 

AUTHOR 

Lee H. Nichols III 

COMPANY 

E. 1. duPont de Nemours & Co., Inc 
Wilmington, Delaware 

DATE 

October 7, 1971 

SOURCE LANGUAGE 

PAL 


Although this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 








% 







DECUS Program Library Write-up 


DECUS NO. 8-484 


1.1 

RESTore for 

the RK08 

1.2 

LHN-D8-0103A 


1.3 

7/15/71 


1.4 

Written by: 

Lee H. Nichols, III 

2.0 

ABSTRACT 



RESTore is a 

sequel to REST (DEC-08-RWDA) 


Disk Monitor System built on a RK08 cartridge disk file. 
RESTore allows the user to create a protected area for 
regularly used programs or data files and leave the re¬ 
mainder of the disk pseudo-device as a working scratch area. 
Whenever the scratch area is filled or no longer needed, it 
can be quickly erased without disturbing the protected 
programs. 
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3. REQUIREMENTS 

3.1 Storage 

RESTore requires 2 octal blocks of storage on the 
system device and occupies octal locations 200 to 1,000 
during execution. 

3.2 Equipment 

RESTore functions only with the Disk Monitor System 
built on the RK08 cartridge disk file. 

3.3 Other Programs Needed 

The BUILD "AH"* System Builder is required to build 
the Disk Monitor System on the RK08 disk; PIP "AH"* is 
required for use with RK08. 

4. USAGE 

4.1 Loading 

RESTore is loaded with the system loader (see Disk 
Monitor System, Programmer's Reference Manual, DEC-D8-SDAB-D,DN) 

4.2 Saving 

After RESTore has been loaded and Monitor types a period, 

type: 

SAVE REST1200-577;200 (CR) 

5. RESTRICTIONS 

For use with RK08 cartridge disk file only. 


* BUILD "AH" and PIP "AH" are available from the DECUS Library. 
(DECUS NO. 8-456A and 8-456B) 
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6.0 DESCRIPTION 

6.1 Program Description 

RESTore is used with the M option of PIP (see Disk 
Monitor System, Programmer's Reference Manual, DEC-D8-SDAB-D,DN). 
The M option moves a copy of the first directory name block 
(DNi) and the first storage allocation map (SAMi) to a 
reserved area (blocks 3 and 4 within Monitor) of the specified 
pseudo-device. When executed, RESTore returns the saved DN 
and SAM blocks to the active table area and clears the re¬ 
maining DN and SAM blocks (DN 2 and DN 3 , SAM 2 to SAMg), 
effectively erasing any programs entered on the pseudo-device 
after the M option was executed. 

RESTore allows the user to create a protected area 
for regularly used programs or data files (EDIT, PIP, PAL, 
etc.) and leave the remainder of the disk pseudo-device as 
a working scratch area. Whenever the working area is filled 
or no longer needed, it can be quickly erased (leaving only 
the protected programs) without deleting the files in¬ 
dividually or rebuilding the system. 

Since only the first block of each system table is saved 
by the M option of PIP, programs to be protected must be 
stored completely within the first 400 octal blocks of the 
specified pseudo-device. Similarly, only the first 25 
decimal file names can be protected. The easiest method 
of insuring that programs fall within the protected area is 
to enter them first whenever the system is built. The L 
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option of PIP can be used to determine the number of blocks 
still available in the protected area. Each pseudo-device 
in the RK08 system configuration contains 3,000 octal blocks 
in its directory. For RESTore to operate properly, at least 
2,400 octal blocks must remain when the M option is executed. 

RESTore can be used with any of the pseudo-devices 
in the RK08 configuration. When RESTore is executed, the 
Monitor head (core locations 07600-07777) is refreshed from 
pseudo-device 0. 

6.2 Program Operation 

RESTore is called as a system program (i.e., called by 
its name as are PIP, EDIT, etc.). When execution begins, 
RESTore will type M *IN- U and wait for the operator to enter 
the desired pseudo-device designation (S0:, SI:, etc.). 

A typical dialogue is shown below, with the computer response 
underlined. 

^REST X User calls RESTore, 

*IN-S 1:). And enters the pseudo-device to be restored. 

_j_ After restoring the requested device, control 

is returned to Monitor. 

Entering a rubout will cause RESTore to restart and type 
"*IN-" again. 

6.3 Program Errors 

RESTore contains three error traps which are explained 


below: 





RESTore 

- 5 - 


? Specification error 

- An invalid or nonexistent device was specified. 

- Only those pseudo-devices present in the RK08 
configuration can be requested (S0:, SI:, etc.). 

DE Disk error 

- A read or write error occurred on the RK08. 

- RESTore will halt. Monitor can be restarted 
at 07600. If the error continues, either the 
Monitor system on the disk pack or the drive 
is in trouble. 

M? Move error 

- The M option of PIP was not executed on the 
specified pseudo-device before RESTore was 
called. 

- RESTore will return to Monitor. 

- This trap prevents accidental erasure of 
unprotected files or destruction of the device 
directory. 

7. METHOD 

One example of the use of RESTore is to put all 
regularly used system programs (PIP, EDIT, etc.) in the pro¬ 
tected area on pseudo-device S0: , leaving the remainder of 
S0: as a working scratch area. Programs currently under 
development are stored on Si: without creating a protected 
area on SI:. Programs can be moved from SI: to S0: with PIP 
or EDIT for modification, assembly, and debugging. When 
finished, these programs are returned to storage in Si: and 
the scratch area of S0: is erased with RESTore. If the M 
option is not used on Si:, the stored files cannot be erased 
accidentally with RESTore. 


8 . 


FORMAT (Not Applicable) 
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9. EXECUTION TIME (Not Applicable) 

10. PROGRAM 

A complete listing of RESTore (including core map and 
symbol concordance) follows. 
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001 



/I 



002 






003 




TITLE "RESTORE" 

FOR THE RK-00 DISC 08-19-71 

004 






005 




LINEON 


0P6 






007 




★ 200 


008 






009 

0200 

7330 

START, 

CLB STL RAR 

/CLEAR THE RK08 REGISTERS 

010 

020-1 

6732 


OLDC 


011 

0202 

6751 


OCL A 


012 

0203 

6032 


KCC 


013 

0204 

3777' 


DC A DEVNUM 


014 

0205 

4263 


JMS PRT 

/TYPE "*IN»» 

015 

0206 

0215 


215 


£16 

0207 

0212 


212 


N? 17 

0210 

0252 


»* 


018 

0211 

0311 


"I 


019 

0212 

0316 


" N 


P2P 

0213 

0255 


M. 


021 

0214 

0000 


0000 


02? 

0215 

4275 


JMS GETCHR 

/LOOK FOR AN "5" 

023 

0216 

1376 


TAD f-"S) 


024 

0217 

7640 


SZA CLA 


025 

0220 

5316 


JM® ERROR 


0?G 

0221 

4275 

INPUT, 

JMS GETCHR 

/LOOK FOR UNIT NUMBER 

027 

0222 

1375 


TAD (-272) 

/A ? 

028 

0223 

7450 


SNA 


029 

0224 

5241 


JMP WORK 

/YES, ASSUME SBJ 

0 30 

0? 25 

7001 


I AC 

/NO, CHECK FOR NUMBER 

031 

0226 

7001 


1A C 


03? 

0227 

7500 


SMA 


033 

0230 

5316 


JMP ERROR 

/ERROR IF > 267 

034 

0231 

1374 


TAD (10) 


►035 

0232 

7510 


SPA 


136 

0233 

5316 


JMP ERROR 

/ERROR IF < 260 

037 

0234 

7106 


CLL RTL 


03« 

0235 

7006 


RTL 


039 

0236 

7006 


RTL 


040 

0237 

3777' 


DC A DEVNUM 

/STORE PSUEDO-OEVICE NUMBER 

041 

0240 

5221 


JMP INPUT 
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001 



/2 


002 

0241 

4275 

WORK, 

JMS GETCHR 

00 3 

0242 

1373 


TAD (-2155 

004 

0243 

764P 


SZA cla 

00 5 

0244 

5316 


JMP ERROR 

006 

0245 

6745 


DSKD 

007 

0246 

5245 


JMP ,-l 

008 

0247 

674? 


DCLS 

009 

0250 

1372 


TAD (-201) 

010 

0251 

6755 


DLC A 

011 

0252 

1372 


TAD (-201) 

01? 

0253 

6753 


OLWC 

013 

0254 

6733 


OLDR 

014 

0255 

6747 


DSKE 

015 

0256 

7410 


SKP 

PIP 

0257 

5324 


JMP OKERR 

017 

0260 

6745 


DSKD 

018 

0261 

5255 


JMP ,-4 

019 

0262 

5771 ' 


JMP REST 

020 





021 

0263 

0000 

PRT, 

0 

022 

0264 

7300 


CLA CLL 

023 

0265 

1663 


TAO I PRT 

024 

0266 

2263 


ISZ FRT 

025 

<*267 

7450 


SNA 

026 

0270 

5663 


JMP I PRT 

P27 

0271 

6046 


TLS 

026 

0272 

6041 


TSF 

029 

0273 

5272 


JMP .-1 

030 

0274 

5264 


JMP PRT+1 

031 





032 

0275 

0000 

GETCHR, 

0 

P33 

0276 

6031 


KSF 

034 

0277 

5276 


JMP ,-1 

035 

0300 

6036 


KR8 

036 

0301 

3312 


DCA GET 1 

037 

0302 

1312 


TAO GET1 

038 

0303 

1370 


TAD (-203) 

C39 

0304 

7450 


SNA 

040 

0305 

5767 


JMP I (7600) 

041 

0306 

1366 


TAO (203-377) 

042 

0307 

7650 


SNA CLA 

043 

0310 

5200 


JMP START 

044 

0311 

4263 


JMS PRT 

045 

0312 

0000 

GET1, 

0 

046 

0313 

0000 


0000 

047 

0314 

1312 


TAD «-2 

046 

0315 

5675 


JMP I GETCHR 


/LOOK FOR CARRIAGE RETURN 


/WAIT FOR RK08 TO SETTLE DOWN 

/CLEAR STATUS REGISTER 

/SET UP AND READ THE MONITOR HEAD 

/FROM DEVICE S0! 


/READ ERROR ? 

/NO, GO ON 

/YES, DO ERROR 

/WAIT FOR I/O COMPLETION 

/GO RESTORE DEVICE 

/PRINT ROUTINE 


/GET A CHARACTER FROM THE TELETYPE 


/CTRL C ? 

/YES, RETURN TO MONITOR 
/NO, RU80UT ? 

/YES, START AGAIN 
/NO, ECHO INPUT 
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001 



/3 



002 

0316 

4263 

ERPOR, 

JMS PPT 

/SPECIFICATION ERROR 

003 

0317 

0215 


215 


004 

0320 

0212 


212 


005 

0321 

0277 


••? 


006 

0322 

0000 


0000 


007 

0323 

5200 


JMP START 

/try AGAIN 

008 






009 

0324 

4263 

DKERR, 

JMS PRT 

/DEVICE ERROR 

010 

0325 

0215 


215 


nil 

0326 

0212 


212 


01? 

0327 

0304 


"D 


013 

0330 

0305 


"E 


014 

0331 

0000 


0000 


*015 

0332 

7402 


HLT 

/HALT TRAP 

Wife 

0333 

5332 


JMP ,-l 


017 






038 






019 

0334 

4263 

MCRR, 

JMS PRT 

/"MOVE" ERROR, "M" COMMAND 

P?0 

0335 

0215 


215 

/IN PIP WAS NOT USED BEFORE 

021 

0336 

0212 


212 

/USING "RESTORE" 

022 

0337 

0315 


»M 


023 

0340 

0240 


240 


024 

0341 

0277 


"? 


P25 

0342 

0000 


0000 


026 

0343 

5767 


JMP I (7600) 

/RETURN TO MONITOR 

027 






026 




dumlit 


028 

0366 

7604 




026 

0367 

7600 




028 

0370 

7575 




020 

0371 

04 00 




^028 

037? 

7577 




W28 

0373 

7563 




028 

0374 

0010 




028 

0375 

7506 




028 

0376 

7455 




028 

0377 

0475 
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001 /4 

002 PAGE 

003 


004 

0400 

4311 REST, 

JMS 

DOIO 

005 

0401 

0003 

3 


006 

0402 

0003 

3 


007 

0403 

0000 

0 


00 8 
009 

0404 

1330 

TAD 

DLINK 

010 

0405 

1377 

TAD 

C~ 10) 

011 

0406 

7700 

$MA 

CLA 

012 

0407 

5776' 

JMP 

MERR 

013 

014 

0410 

4311 

JMS 

DOIO 

015 

0411 

0005 

5 


016 

0412 

0177 

177 


017 

0413 

0201 

201 


018 

019 

0414 

4311 

JMS 

DOIO 

020 

0415 

0003 

3 


021 

0416 

0004 

4 


022 

0417 

0000 

0 


023 

0420 

4311 

JMS 

DOIO 

024 

04 21 

0P05 

5 


025 

0422 

0200 

200 


026 

0423 

0202 

202 


P27 

028 

0424 

4277 

JMS 

clear 

029 

030 

0425 

4311 

JMS 

DOIO 

031 

0426 

0005 

5 


032 

0427 

0201 

201 


033 

0430 

0207 

207 


034 

035 

0431 

1375 

TAD 

(-74) 

036 

0432 

3276 

DC A 

wka 

037 

0433 

1374 

TAD 

(703) 

038 

0434 

3010 

DC A 

10 

039 

0435 

1373 

TAD 

(100) 

04P 

0436 

3410 

DC A 

I 10 

041 

0437 

2276 

ISZ 

WKA 

04? 

0440 

5235 

JMP 

,-3 

043 

044 

0441 

4311 

JMS 

DOIO 

045 

0442 

0005 

5 


046 

0443 

0207 

207 


047 

0444 

0000 

0 



/READ ONI BACKUP 

/CHECK THAT "M" COMMAND IN PIP HAS 
/BEEN USED BEFORE DOING "RESTORE" 

/NO, DO ERROR 

/RESTORE DNl 

/GET SAMI BACKUP 

/RESTORE SAMI 


/CLEAR DN2 

/MARK DN3, FILE NUMBERS ABOVE 
/63(10) CANNOT BE DEFINED 


/RESET DN3 
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001 /5 

002 


003 

0445 

42 77 


JMS 

clear 



004 








005 

0446 

4311 


JMS 

DOIO 

/CLEAR SAM2 


006 

0447 

0005 


5 




007 

0450 

0202 


202 




008 

0451 

0203 


203 




009 

0452 

4311 


JMS 

DOIO 

/CLEAR SAM3 


010 

0453 

0005 


5 




011 

0454 

0203 


203 




012 

0455 

0204 


204 




013 

0456 

4311 


JMS 

DOIO 

/CLEAR SAM4 


014 

0457 

0005 


5 




015 

0460 

0204 


204 




16 

0461 

0205 


205 




W 017 

0462 

4311 


JMS 

DOIO 

/CLEAR SAM5 


018 

0463 

0005 


5 




019 

0464 

0205 


205 




020 

0465 

0206 


206 




021 

0466 

4311 


JMS 

DOIO 

/CLEAR SAM6 


022 

0467 

0005 


5 




023 

0470 

0206 


206 




024 

0471 

0000 


0 




025 

0472 

6036 


KRB 


/CLEAR THE KEYBOARD 

BUFFER 

026 

0473 

7300 


CLB 




027 

0474 

5772 


JMP 

I (7600) 

/FINISHED, RETURN TO 

MONITOR 

020 








029 

0475 

0000 

DEVNUM, 

0 




030 

0476 

0000 

WKA, 

0 




031 








032 

0477 

0000 

CLEAR, 

e 


/CLEAR OUTPUT BUFFER 

AREA 

P33 

0500 

1372 


TAD 

(-200) 



034 

0501 

3276 


DC A 

WKA 



t ’'35 

0502 

1371 


TAD 

(577) 



^36 

0503 

3010 


DC A 

10 



037 

0504 

3410 


DCA 

I 10 



038 

0505 

2276 


ISZ 

WKA 



039 

0506 

5304 


JMP 

.-2 



040 

0507 

7300 


CLB 




041 

0510 

5677 


JMP 

i clear 
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00 1 



/6 



002 






003 



/ 

DISC I/O CONTROL 


004 






005 

0511 

0000 

OOIO, 

0 


006 

0512 

1711 


TAD I 0010 

/FORM FUNCTION WORD 

007 

0513 

2311 


ISZ 0010 


008 

0514 

1275 


TAD DEVNUM 


009 

0515 

3325 


OCA DFUNC 


010 

0516 

1711 


TAD I DOIO 

/BLOCK NUMBER FOR I/O 

011 

0517 

2311 


ISZ DOIO 


012 

0520- 

3326 


OCA DBLK 


013 

0521 

1711 


TAD I DOIO 


01-3 

0522 

2311 


ISZ, DOIO 


015 

0523 

3330 


DC A DLINK 

/LINK NUMBER FOR ABOVE BLOCK 

016 

0524 

4770 


JMS I (7642) 

/CALL MONITOR I/O 

017 

0525 

0000 

DFUNC, 

0 


018 

0526 

0000 

OBLK, 

0 


019 

0527 

0600 


600 


020 

053P 

0000 

DUNK, 

0 


021 

0531 

5767* 


JMP DKERR 

/DO DISK ERROR 

022 

0532 

5711 


JMP I DOIO 


023 



/ 



024 



/ 



025 



/ 

RK08 IOT COMMANDS 

026 



/ 



027 



/ 



028 



DLDC = 

6732 


029 



DCLA* 

6751 


030 



DSKPs 

6745 


031 



DCLS* 

6742 


032 



DLWC* 

6753 


033 



DIOR* 

6733 


034 



DSKE* 

6747 


035 



OLC As 

6755 


036 






037 

0567 

0324 




037 

0570 

7642 




037 

0571 

0577 




037 

0572 

7600 




037 

0573 

0100 




037 

0574 

0703 




037 

0575 

7704 




037 

0576 

0334 




037 

0577 

7770 




037 



$ 








% 
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FIELD 

0000 

0100 

0 




0200 

11111111 

liiniu 

11111111 

111 lllll 


11111111 

miiiii 

11111111 

11111111 

0300 

11111111 

ilium 

11111111 

11111111 


11110000 

00000000 

0000001 1 

11111111 

0400 

11111111 

liiiiin 

11111111 

11111111 


11111111 

liiiiin 

11111111 

ilium 

0503 

11111111 

liiiiin 

11111111 

11100000 

1 

0630 

* 

* 

7700 

0000P000 

00000000 

00000001 

11111111 
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CLEAR 

0477 

D0LK 

0526 

DCLA 

6751 

DCLS 

6742 

DEVNUH 

0475 

DFUNC 

0525 

DKERR 

0324 

DLC A 

6755 

DLDC 

6732 

DLDR 

6733 

DLINK 

0530 

DLwC 

6753 

OOIO 

0511 

DSKD 

6745 

DSKE 

6747 

ERROR 

0316 

GETCHR 

0275 

GET 1 

0312 

INPUT 

0221 

MERR 

0334 

PRT 

0263 

PEST 

0400 

START 

0200 

WK A 

0476 

WORK 

0241 
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CLEAR 

0477 

0424 

0445 

0510 







dblk 

0526 

0520 









CCLA 

6751 

0202 









DCLS 

6742 

0247 









DEVHUM 

P475 

0204 

0237 

0514 







DFUNC 

0525 

0515 









PKERR 

0324 

0257 

0531 








DLCA 

6755 

0251 









DLOC 

6732 

02P1 









DLDR 

6733 

0254 









DUNK 

0530 

0404 

0523 








DLNC 

6753 

0253 









DOIO 

0511 

0400 

0410 

0414 

0420 

0425 

0441 

0446 

0452 

0456 



0462 

0466 

0512 

0513 

0516 

0517 

0521 

0522 

0532 

DSKD 

6745 

0245 

0260 








'DSKE 

6747 

0255 









ERROR 

0316 

0220 

0230 

0233 

0244 






GETCHR 

0275 

0215 

0221 

0241 

0315 






GET1 

0312 

0301 

0302 








INPUT 

0221 

0240 









MERR 

0334 

0407 









PRT 

0263 

02P5 

0265 

0266 

0270 

0274 

0311 

0316 

0324 

0334 

REST 

0400 

0262 









start 

0200 

0310 

0323 








WK A 

0476 

0432 

0437 

0501 

0505 






WORK 

0241 

0224 
















